Q&A
取扱説明書・マニュアル (文書検索対応分のみ)
"Dim ws As Worksheet"5 件の検索結果
"Dim ws As Worksheet" 一致するキーワードは見つかりませんでした。
全般
質問者が納得状況説明も殆ど無くコードをドンと載せるのは、コードを解析してやりたい事を推測して答えろという意味ですか？
画像も的を得ていない部分を載せていたり、小さすぎて見えなかったりであまり意味が無い場合が多いし、コードだって一部だけ載せても、他のイベントコードがどうなっているかわからないため、他のコードと干渉し合う事も考えられます。
私は専属の下請けじゃありません。
業務ソフトを構築したいなら、それなりのところに頼んでください。
既に掲示板でのやりとりで解決出来る範囲では無いと思います。
---
今後、リクエ...
4312日前view61
全般
質問者が納得何度かご質問にお答えした記憶はありますが、内容はまったく覚えてません。
質問歴を拝見すると同じようなソートの質問を何度かされているよう見受けられますが、コピペで動かないとまったく応用できないという事でしょうか？
ロジック的にどうかなという気持ちもありますが、サンプルコードを UserForm_Initialize の End Select と End With の間に追加したら、とりあえず画像のようになりました。
'---省略---
End Select
'----サンプル ここから---
i = 0...
4346日前view71
全般
質問者が納得90人以上が見ても回答が無いのは、回答者に答えるスキルが不足しているのでは無く、ご質問の文章や表現などに問題があると考えた事はありませんか？
「まったく状況や内容を知らない人が読む」という観点で質問を読み返してみて下さい。果たして何人の人が望んでいる事を理解出来るでしょうか？
見ていない人に文章で伝えるのはかなり大変なことですし、特に文字数制限がある掲示板では尚更です。込み入った内容の質問であればあるほど伝えるのは容易ではありません。書いてもらったコードをコピペで載せるのではなく、読む人の環境で再現させ...
4346日前view72
全般
質問者が納得補足
そこまで、できてるのでしたら、あとは、goldswallow_stageさんの示したコードを多次元配列に応用するだけでソートできるかと思います。
Variant型の変数（今回は「範囲」という名前にしました）に対して、セル範囲をセットすると、（↓この行です）
範囲 = ws.Range("A4:D" & ws.Range("B" & Rows.Count).End(xlUp).Row)
範囲＝セルA4:Dα範囲（αは入力済みのセル数）となるわけ...
4347日前view71
全般
質問者が納得失礼しました。B列で判定でしたね＾＾；
こんな感じでどうでしょうか？
Private Sub UserForm_Initialize()
Me.StartUpPosition = 0
Me.Left = 586
Me.Top = 138
'タイトルを設定
Me.Caption = "印刷フォーム"
Label1.Caption = "日付リスト"
Dim Rng As Range, fRng As Range
Dim lst As Vari...
4347日前view36
- 1
